home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5800.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  37 lines
  1. 5 GOTO10010
  2. 10 DATAaý-bý,(a+b)(a-b),10,20
  3. 20 DATAaþñbþ,(añb)(aýÅab+bý),10,30
  4. 30 DATAa”-b”,(a-b)(a+b)(aý+bý),20,40
  5. 40 DATAa”+b”,(aý+ûïab+bý)(aý-ûïab+bý),30,50
  6. 50 DATAaýñ2ab+bý,(añb)ý,40,60
  7. 60 DATAaþñ3aýb+3abýñbþ,(añb)þ,50,70
  8. 70 DATA(añb)ýÅ4ab,(aÅb)ý,60,80
  9. 80 DATAaý+bý+cý+2bc+2ca+2ab,(a+b+c)ý,70,90
  10. 90 DATAa”+aýbý+b”,(aý+ab+bý)(aý-ab+bý),80,100
  11. 100 DATAaþ+bþ+cþ-3abc,(a+b+c)(aý+bý+cý-bc-ca-ab),90,110
  12. 110 DATA(ac-bd)ý+(ad+bc)ý,(aý+bý)(cý+dý),100,120
  13. 120 DATA(ac+bd)ý+(ad-bc)ý,(aý+bý)(cý+dý),110,130
  14. 130 DATA(ac+bd)ý-(ad+bc)ý,(aý-bý)(cý-dý),120,140
  15. 140 DATA(ac-bd)ý-(ad-bc)ý,(aý-bý)(cý-dý),130,150
  16. 150 DATAaý(b-c)+bý(c-a)+cý(a-b),-(b-c)(c-a)(a-b),140,160
  17. 160 DATA(b-c)þ+(c-a)þ+(a-b)þ,3(b-c)(c-a)(a-b),150,170
  18. 170 DATAa”+b”+c”-2býcý-2cýaý-2aýbý,(a+b+c)(b-c-a)(c-a-b)(a-b-c),160,180
  19. 180 DATAxý+(a+b)x+ab,(x+a)(x+b),170,190
  20. 190 DATAxþ+(a+b+c)xý+(bc+ca+ab)x+abc,(x+a)(x+b)(x+c),180,200
  21. 200 DATAaý-bý-cý-2bc,(a+b+c)(a-b-c),190,210
  22. 210 DATA(a+b+c)(bc+ca+ab)-abc,(b+c)(c+a)(a+b),200,220
  23. 220 DATA(a+b+c)þ-(aþ+bþ+cþ),3(b+c)(c+a)(a+b),210,230
  24. 230 DATAaþ(b-c)+bþ(c-a)+cþ(a-b),-(b-c)(c-a)(a-b)(a+b+c),220,230
  25. 10010 MODE8:DIM:x=10:y=230:r=x
  26. 10020 DEFCHR$(255)="A6AAAA9280"
  27. 10110 RESTORE(r)
  28. 10120 READm$,n$,b,c
  29. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  30. 10140 CLS:PRINTm$;;TAB(l);l$;"=";n$;
  31. 10150 z=ASC(INPUT$(1,@))
  32. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  33. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  34. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  35. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  36. 10280 GOTO10150
  37.